In [2]:
data <- read.csv("data billy.csv")
In [3]:
head(data)
Out[3]:
In [4]:
tail(data)
Out[4]:
In [5]:
names(data)
Out[5]:
In [6]:
library("ggplot2")
In [7]:
qplot( y = data$TOBINQ, x = data$SIZE)
In [8]:
max(data$TOBINQ)
Out[8]:
In [9]:
names(data)
Out[9]:
In [ ]:
In [10]:
library("plm")
In [11]:
data_panel <- pdata.frame(data, index = c("Perusahaan", "Tahun"), drop.index = TRUE, row.names = TRUE)
In [12]:
head(data_panel)
Out[12]:
In [13]:
reg_all <- plm(TOBINQ ~ PDEBT + SIZE + LEV + LIQ + INTCOV + PROF + DR + GROWTH + FIRMAGE, data = data_panel )
In [14]:
names(data_panel)
Out[14]:
In [15]:
reg_all
Out[15]:
In [16]:
summary(reg_all)
Out[16]:
In [17]:
skripsi.fe <- plm(TOBINQ ~ PDEBT + LogAssets + LEV + LIQ + INTCOV + PROF + DR + GROWTH + FIRMAGE, data = data_panel, model = "within")
skripsi.re <- plm(TOBINQ ~ PDEBT + LogAssets + LEV + LIQ + INTCOV + PROF + DR + GROWTH + FIRMAGE, data = data_panel, model = "random")
In [18]:
summary(skripsi.fe)
Out[18]:
In [19]:
summary(skripsi.re)
Out[19]:
In [20]:
phtest( skripsi.fe, skripsi.re)
Out[20]:
In [21]:
pooltest.billy <- pooltest(TOBINQ ~ PDEBT + FIRMAGE + LIQ, data = data_panel, model="within")
In [22]:
pooltest.billy
Out[22]:
In [23]:
pool_rergression <- plm(TOBINQ ~ PDEBT + SIZE + LEV + LIQ + INTCOV + PROF + DR + GROWTH + FIRMAGE, data = data_panel, model="pooling")
bpagan_test <- plmtest(pool_rergression,effect="twoways",type="bp")
In [24]:
bpagan_test
Out[24]:
In [25]:
summary(skripsi.fe)
Out[25]:
In [26]:
summary(data_panel)
Out[26]:
In [27]:
qplot(y = data$LogTobinsQ, x = data$LIQ, geom = c("point", "smooth"), method = lm)
In [28]:
var(data$LIQ)
Out[28]:
In [29]:
var(data$TOBINQ)
Out[29]:
In [30]:
qplot(data$TOBINQ)
In [31]:
skripsi.try1 <- plm(log(TOBINQ) ~ PDEBT + log(SIZE) + log(LEV) + log(LIQ) + log(INTCOV) + log(PROF) + DR + log(GROWTH) + FIRMAGE + y1 + y2 + y3 , data = data_panel, model = "within")
In [32]:
summary(skripsi.try1)
Out[32]:
In [33]:
install.packages("R2wd")
In [ ]:
In [ ]:
In [ ]:
In [ ]: